home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / CIALOG04.ZIP / CIA-LOG.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1995-01-12  |  2.2 KB  |  176 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Integer  INTEGER001
  21.     Integer  INTEGER002
  22.     Integer  INTEGER003
  23.     Integer  INTEGER004
  24.     Integer  INTEGER005
  25.     Integer  INTEGER006
  26.     Integer  INTEGER007
  27.     String   STRING001
  28.     String   STRING002
  29.     String   STRING003
  30.     String   STRING004
  31.     String   STRING005
  32.     String   STRING006
  33.     String   STRING007
  34.     String   STRING008
  35.     String   STRING009
  36.     String   STRING010
  37.  
  38. ;------------------------------------------------------------------------------
  39.  
  40.     STRING001 = PPEPath() + "CIA-LOG.PCB"
  41.     STRING002 = PPEPath() + "CIA-LOG.CNF"
  42.     STRING003 = TokenStr()
  43.     Tokenize STRING003
  44.     STRING004 = GetToken()
  45.     FOpen 1, STRING002, 0, 0
  46.     FGet 1, STRING005
  47.     FGet 1, INTEGER001
  48.     FGet 1, INTEGER002
  49.     FGet 1, INTEGER003
  50.     FGet 1, INTEGER004
  51.     FGet 1, INTEGER005
  52.     FGet 1, INTEGER006
  53.     FGet 1, INTEGER007
  54.     FGet 1, STRING006
  55.     FGet 1, STRING007
  56.     FClose 1
  57.     Select Case (STRING004)
  58.         Case "1"
  59.             Goto LABEL001
  60.         Case "2"
  61.             Goto LABEL002
  62.         Case "3"
  63.             Goto LABEL003
  64.         Case "4"
  65.             Goto LABEL004
  66.         Case "5"
  67.             Goto LABEL005
  68.     End Select
  69.     DispFile STRING001, 0
  70.     AnsiPos 21, INTEGER007
  71.     Print "@X08[@X0FCiA L@X07ogon @X0FE@X07nhancer @X08v@X07O.4 @X08by @X0FD@X07ark @X0FJ@X07ester@X08]"
  72.     AnsiPos INTEGER001, INTEGER002
  73.     Print STRING005
  74.     End
  75.     :LABEL001
  76.     AnsiPos INTEGER003, INTEGER004
  77.     Print STRING005 + "@CITY@"
  78.     AnsiPos INTEGER005, INTEGER006
  79.     Print STRING005
  80.     End
  81.     :LABEL002
  82.     AnsiPos 25, INTEGER007
  83.     STRING008 = STRING006 + "Continue as New User" + STRING007 + "  Re-Enter"
  84.     STRING009 = STRING007 + "Continue as New User  " + STRING006 + "Re-Enter" + STRING007
  85.     Print STRING008
  86.     BOOLEAN001 = 1
  87.     STRING010 = Inkey()
  88.     While (STRING010 <> Chr(13)) Do
  89.         Select Case (STRING010)
  90.             Case "LEFT", "RIGHT"
  91.                 BOOLEAN001 = !BOOLEAN001
  92.                 AnsiPos 25, INTEGER007
  93.                 If (BOOLEAN001) Then
  94.                     Print STRING008
  95.                 Else
  96.                     Print STRING009
  97.                 Endif
  98.             Case "C"
  99.                 BOOLEAN001 = 1
  100.                 AnsiPos 25, INTEGER007
  101.                 Print STRING008
  102.                 Break
  103.             Case "R"
  104.                 BOOLEAN001 = 0
  105.                 AnsiPos 25, INTEGER007
  106.                 Print STRING009
  107.                 Break
  108.         End Select
  109.         STRING010 = Inkey()
  110.     EndWhile
  111.     If (BOOLEAN001) Then
  112.         KbdStuff "C"
  113.     Else
  114.         KbdStuff "R"
  115.     Endif
  116.     End
  117.     :LABEL003
  118.     End
  119.     :LABEL004
  120.     KbdStuff Chr(13)
  121.     End
  122.     :LABEL005
  123.     AnsiPos 27, INTEGER007
  124.     Print "@X08» @X0FWRONG @X07Password Entered! @X08«"
  125.     End
  126.  
  127. ;------------------------------------------------------------------------------
  128. ;
  129. ; Usage report (before postprocessing)
  130. ;
  131. ; ■ Statements used :
  132. ;
  133. ;    6       End
  134. ;    27      Goto 
  135. ;    12      Let 
  136. ;    10      Print 
  137. ;    11      If 
  138. ;    1       DispFile 
  139. ;    1       FOpen 
  140. ;    1       FClose 
  141. ;    10      FGet 
  142. ;    1       Tokenize 
  143. ;    3       KbdStuff 
  144. ;    9       AnsiPos 
  145. ;
  146. ;
  147. ; ■ Functions used :
  148. ;
  149. ;    10      +
  150. ;    9       ==
  151. ;    1       <>
  152. ;    12      !
  153. ;    1       ||
  154. ;    2       Chr()
  155. ;    2       Inkey()
  156. ;    2       PPEPath()
  157. ;    1       GetToken()
  158. ;    1       TokenStr()
  159. ;
  160. ;------------------------------------------------------------------------------
  161. ;
  162. ; Analysis flags : No flag
  163. ;
  164. ;------------------------------------------------------------------------------
  165. ;
  166. ; Postprocessing report
  167. ;
  168. ;    0       For/Next
  169. ;    1       While/EndWhile
  170. ;    2       If/Then or If/Then/Else
  171. ;    2       Select Case
  172. ;
  173. ;------------------------------------------------------------------------------
  174. ;                 AEGiS Corp - Break the routines, code against the machines!
  175. ;------------------------------------------------------------------------------
  176.